Manipulate[
Module[{origin,u,v,cross,DkGreen},
origin:={0,0,0};
u:={ux,uy,uz};
v:={vx,vy,vz};
cross:=Cross[u,v];
DkGreen:=RGBColor[0,0.6,0,1];
Graphics3D[
{Thick,
Blue,Arrow[{origin,u}],Text[Style["(OverVector[u]) ",24],u+{0.3,0.3,0.3}],
Red,Arrow[{origin,v}], Text[Style["(OverVector[v]) ",24],v+{0.3,0.3,0.3}],
DkGreen, Arrow[{origin,cross}],Text[Style["(OverVector[u])×(OverVector[v])  ",24],0.3*cross+{0.3,0.3,0.3}],
Thin,RGBColor[0,0,0,0.5],
Line[{{-5,0,0},{5,0,0}}],Text[Style[x,24],{5.3,0,0}],
Line[{{0,-5,0},{0,5,0}}],Text[Style[y,24],{0,5.3,0}],
Line[{{0,0,-5},{0,0,5}}],Text[Style[z,24],{0,0,5.3}]},
BoxRatios->{1,1,1},Boxed->True,PlotRange->5,
PlotLabel->Column[{
Row[{Text[Style[u,Blue,24]],Text[Style[" × ", Black, 24]],Text[Style[v,Red,24]]}],
Row[{Text[Style[" = ", Black, 24]],Text[Style[cross,DkGreen,24]]}]
}]
]
],
{{ux,1,Style[(Subscript[u, x]),Blue]},-3,3},{{uy,1,Style[(Subscript[u, y]),Blue]},-3,3},{{uz,1,Style[(Subscript[u, z]),Blue]},-3,3},
{{vx,3,Style[(Subscript[v, x]),Red]},-3,3},{{vy,0,Style[(Subscript[v, y]),Red]},-3,3},{{vz,3,Style[(Subscript[v, z]),Red]},-3,3},
ControlPlacement->Left
]